(etags-goto-tag-location): Handle selective display.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index e72fdb3e7cd7912979697fc3cc335f19e4e0f210..97ca5f816e8ef913a649e95b67e8d63015d6d359 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -950,7 +950,9 @@ See documentation of variable `tags-file-name'."
        ;; costs about as much as searching 2000 chars.
        (offset 1000)
        (found nil)
-       (pat (concat "^" (regexp-quote (car tag-info)))))
+       (pat (concat (if (eq selective-display t)
+                        "\\(^\\|\^m\\)" "^")
+                    (regexp-quote (car tag-info)))))
     (or startpos
        (setq startpos (point-min)))
     (while (and (not found)